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ABSTRACT 

The Report Generation (REPGEN) capability comprises a set of pro- 
grams designed to run on an IBM 1410 computer under the Air Force Inte- 
grated Command and Control System (AFICCS), The primary purpose of 
REPGEN is to provide a capability for producing a printed report from a 
file of input data contained on punched cards, magnetic tape or on the system 
disk. This document contains detailed information regarding the structure 
and operation of the REPGEN programs, including table descriptions, core 
maps, program flow-charts and abstracts. 
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SECTION I 
INTRODUCTION 



The purpose of this document is to present detailed information 
regarding the structure and operation of the various programs which 
comprise the REPGEN capability. It is assumed that the reader is 
familiar with the contents of the REPGEN User's Guide. 
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SECTION II 

OVERVIEW 



The Report Generation (REPGEN) capability comprises a set of 
programs designed to run on an IBM 1410 computer under the standard 
AFICCS system. The primary purpose of REPGEN is to provide a capability 
for producing a printed report from a file of input data contained on 
punched cards, on magnetic tape or on the system disk. The output may 
be optionally on magnetic tape or cards. The output format is con- 
trolled by use of a quasi-English language of limited vocabulary. 

There are three major activities required in order to move 
from source data to finished report. These are: 

a. Table generation 

b. File generation 

c . Report production 

Figure 1 shows the basic elements involved in each of these activities, 

TABLE GENERATION 

Before a report can be generated, certain basic informa- 
tion must be loaded into tables and placed on the system disk, to 
be available for File generation and Report production- The total 
REPGEN capability includes a number of support programs which are 
used to perform the necessary table construction. 

LID (Load Input Descriptors) 

The input to LID is primarily a description of the source 
data which will be used to make up the serial file tape (SF tape) 
which in turn will be the input to the output phase of REPGEN. The 
various source data record types must b6 id^ntifi^ed, and the data 
attributes associated with each record type must be defined in terms 
of length, position within the record', data type, etc. 

SAVER 

In some cases, the source data may reside on the AFICCS 
system disk in parallel file form. In order to produce a serial 
file tape (SF Tape) which can be used by REPGEN output programs, a 
Query Language retrieval must be performed against the parallel file. 
The Query Language retrieval statement must specify GETTAC as the 
propess director. GETTAC (a variant of GETB) outputs the retrieved 
data on an SF Tape. 
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Figure 1 . Overview of the Report Generation Process 



saver's primary function is to save a Query Language 
retrieval statement so that it may be called up for execution when 
required. (SAVER is a variant of SAVE.) 

LEGVAL (Legitimate Value Loader) 

As information is transferred from source data to the 
serial file tape, it may be desirable to check certain attributes 
for legality. This best applies to attributes which can legally 
take on one of a limited number of values. 

LEGVAL produces a table which contains all of the allowable 
values for each attribute which is to be legality checked. 

LOP (Load Output Descriptors) 

A quasi-English language of limited vocabulary has 
been implemented to give the user the capability to structure a 
report. Using the language provided, data can be selected from the 
serial file tape, arithmetically manipulated , and arranged for 
presentation on a printed page. (Output may optionally be to 
magnetic tape or punched cards.) The set of statements which direct 
this activity may be called an Output Program . 

An output program is initially processed by LOD, which 
performs syntax checking, and then eliminates all redundant characters 
in each statement. LOD also replaces attribute names with their 
length and position on the serial file tape. The resulting condensed 
output program is placed in a table on the system disk, to be 
available for later execution. 

FILE GENERATION 

The purpose of the file generation activity is to produce 
a serial file tape containing the data from which the desired report(^)^ 
will be generated. The source data from which the serial file tape is 
made may be in punched cards, on magnetic tape, or may reside on the 
system disk in parallel file form. 

When the source data is in cards or on tape, we are 
said to be operating in Mode 1 ; when the source data is a parallel 
file on disk, we are operating in Mode 2. There are internal 
differences in the operation of the file generation program (REPGEN) , 
depending upon the mode in which it runs. The end result, however, 
is essentially the same; a serial file tape is produced which contains 
the data to be used in generating the desired report(s). 



REPORT PRODUCTION 

Once the required tables have been generated and a 
serial file tape has been prepared, we are ready to produce a 
report. This is accotnplished by operating what is called the Outpct 
Phase * 

The output phase can proceed as a continuation of a 
file generation run; at the completion of file generation the 
computer operator is given the option to terminate or to continue 
with the output phase. 

A serial file tape which was produced by a previous 
run can be used to generate a report by operating the output phase 
via the Bypass Mode. In this mode, file generation is bypassed and 
the output phase is immediately started. 

During the output phase, the condensed output program 
is read from disk and the statements are interpreted and executed 
to produce the desired output. Up to nine additional copies of a 
printed report may be produced automatically. 



SECTION III 

TABLES 



REPORT DESCRIPTOR TABLE 



Created By: LID 

Purpose: Each entry in this table identifies by name and number 
an active REPGEN report. 

Table Size: 1 record (expandable) of 2800 characters. 

Entry Size: 100 characters per entry, recorded in Move mode. 

End of Table: A record mark in the first position of an entry 
indicates the end of the table. 



Entry Description: 

Positions 

1-3 

4-15 

16 

17 

18-47 

48-49 

50-52 

53-68 

69 

70 

71 

72 

73 

74-76 

77-80 

81-84 

85-88 

89-92 

93-96 

97-100 



Contents 

Report Number 

Report Title 

Input Media 

Classification 

Header Labfel 

Size of Header Label 

Low Order Position of Header Lab.el 

Blank 

Card Indicator 

Tape Indicator 

Printer Indicator 

Not Used 

History Indicator 

Save Statement Number 

Low Order Position of OEDT 

SDA of Selected Output Table 

SDA of Record Descriptor Table 

Number Records for Record Desc. Table 

SDA of Output Entry Desc. Table 

Number Records for OEDT 



RECORD DESCRIPTOR TABLE 

Created By: LID 

Purpose: Each entry describes a particular type of input record 
which may be encountered during generation of a Serial 
File Tape. 

Table Size: 1 record of 2800 characters allocated for each entry 
in the Report Descriptor Table. 

Entry Size: 40 characters per entry, recorded in Move mode. 

End of Table: A record mark in the first position of an entry 
indicates the end of the table. 



Entry Description: 

Positions 

1-5 

6-8 

9 

10 

11-12 

13 

14 

15-17 

18-20 

21-32 

33-36 

37-40 



Contents 

Record Type 

Low Order Position of Record Type 

Length of Record Type 

Input Media 

Maximum Number Records per Entry 

Number of Control Attributes 

Number of Sub-Control Attributes 

High Order Position of Remark Text 

Low Order Position of Remark Text 

Blank 

SDA of Attribute Desc Table 

Number Records for Attribute Desc 

Table 



ATTRIBUTE DESCRIPTOR TABLE 



Created By: LID 

Purpose: Each Attribute Descriptor Table describes all of the 
attributes associated with a particular record type. 

Table Size: 1 or more 2800 character records (sufficient to describe 
all attriubtes pertaining to a given record type). 

Entry Size: 40 characters per entry, recorded in Move mode. 

End of Table: A record mark in the first position of an entry 
indicates the end of the table. 

Entry Description: 

Positions Contents 

1-17 Attribute Name 

18-19 Length of Attribute 

20-22 Low Order Position of Attribute 

23 Data Class 

24 Audit Check Indicator 

25 Mandatory Value Indicator 
26-30 Record Type 

31 Type of Attribute 

32-36 Blank 

37-39 Low Order Position of the Attribute 

Value in the Output Entry File 
40 Not Used 



SELECTED OUTPUT TABLE (SOT) 

N 

Created By: LID. The space is allocated by LID, but table entries 
are actually loaded by LOD» 

Purpose: Each SOT table acts as a directory for up to seven 

output programs which may be associated with a given 
report number. 

Table Size: 1 record of 245 characters (only the first 210 characters 
are actually used) is allocated for each entry in the 
Report Descriptor Table. 

Entry Size: 30 characters per entry, recorded in Move mode. 

End of Table: A record mark in the first position of an entry indicates 
the end of the table. 



Contents 

Entry Indicator 

SDA of Condensed Output Format 
Statement s 
Output Media 

Output Entry Size for this Report 
History Tape Indicator 
Highest Statement Number for this 
Output Program 

Total Output Statements Fitting into 
Core with this Format 
Core Origin of Output Statements 
for this Output Format 
Core Origin of Input Area for this 
Output Format 

Usually Blank. Set to 1 by UPSTAT 
to Indicate that the condensed 
statements to which this SOT entry 
points have been fully condensed 
by UPSTAT. 
28-30 Blank 



ry 


Description: 




Positions 




1 
2-5 




6 

7-10 
11 
12-14 




15-16 




17-21 




22-26 




27 



OUTPUT ENTRY DESCRIPTOR TABLE (OEDT) 

Created By: LID 

Purpose: This table describes the format of the records on 
the Serial File Tape. 

Table Size: 1 record of 2800 characters. 

Entry Size: 25 characters per entry, written in Move mode. 

End of Table: A record mark in the first position of an entry 
indicates the end of the table. 



Contents 

Attribute Name 

"Zero" inserted by LID 

Length of Attribute 

Low Order Position of Attribute 

Blank - Not Used 



Ent 


ry 


Descri 


ption: 

Positions 

1-17 

18 

19-20 

21-23 

24-25 
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Figure 3. LID Input and Output, Mode 1 
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LEGITIMATE VALUE ATTRIBUTE NAME TABLE 

Created By: LEGVAL 

Purpose: This table contains the name of every attribute to 
be checked for legality during file generation, and 
acts as a directory for the lists of legal values. 

Table Size: 10 records of 245 characters each. 

Entry Size: 24 characters per entry, recorded in Move mode. 

End of Table: A record mark in the first position of an entry 
indicates the end of the table. 



Entry 


De 


scription: 

Positions 

1-17 
18-21 

22 
23-24 



Contents 

Attribute Name 

SDA of Legitimate Values for this 

Attribute. 

Number of records assigned to 

above SDA. 

Maximum length of attribute value. 
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LEGITIMATE VALUE TABLE 



Created By: LEGVAL 

Purpose; Each Legitimate Value Table contains the list of all 
allowable values for one particular attribute. 

Table Size: 4 records of 245 characters each. 

Entry Size: Variable. The entries in a given Legitimate Value 
Table are as long as the maximum length of that 
particular attribute value. 

End of Table: A record mark in the first position of an entry 
indicates the end of the table. 
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Figure 4. LEGVAL Input and Output 
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CONDENSED OUTPUT PROGRAM 



Created By: 
Purpose: 

Table Size: 



Entry Size: 



End of Table: 



LOD 



Each table contains one Output Program, processed 
and condensed by LOD and available for execution. 

The table contains one 245 character record for each 
statement of the Output Program (only the first 200 
characters of each record are actually available for 
use) . 

Each entry (condensed statement) is contained in a 
245 character record written in Move mode. 

Each condensed statement is assigned within an SDA 
to the relative record corresponding to the statement 
number. Thus, the last entry in the table is contained 
in the relative record corresponding to the highest 
statement number used in the Output Program. 



Entry Description: 

See program description of LOD. 
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SAVED STATEMEOT TABLE DIRECTORY . 



Created By: SAVER 

Purpose: This table serves as a directory for locating the 

Query Language statements which have been stored on 
the system disk by SAVER. 

Table Size: 1 record of 2800 characters (only the first 2000 are 
used) . 

Entry Size: Each entry is 4 characters in length. 

End of Table; The end of the table is indicated by the 500th entry 
or a blank entry, whichever occurs first. 

Entry Description: 

Each entry is an SDA of a saved Query Language 
statement. The relative position of the entry in the 
table corresponds to the statement number previously 
assigned to the saved statement. 
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SAVED STATEMENT TABLE 

Created By: SAVER 

Purpose: Query Language retrieval statements are stored on 

the system disk £or subsequent recall and execution. 

Table Size: A maximum of 500 2800 character records. 

Entry Size: Each saved statement is contained in one 2800 
character record. 

Entry Description: 

See program description for SAVER. 



19 



QUERY 

LANGUAGE 

STATEMENT 



OR 



REPORT 

DESCRIPTOR 

TABLE 



OUTPUT 
ENTRY ^_ 
DESCRIPTOR ** 
TABLE 



.ON SOLE 

QUERY 
LANGUAGE 
STATEMENT 




SAVED 

STATEMENT 

DIRECTORY 



T 
± 



SAVED 

STATEMENT ' 



Figure 6. SAVER Input and Output 



20 



I/O COMMUNICATION RECORD 

Created By: REPGEN (or by RGPBYP when using bypass mode). 

Purpose: This record contains information which must be passed 
from the input phase to the output phase. 

Table Size* 1 record of 245 characters. 

Entry Size: 1 entry of 126 characters. 

Entry Description: 

Positions Contents 

1-100 Report Descriptor Table entry for 

report being processed. 
101-117 AS QF TIME entered on console 

118-120 High order position of Remarks text 

121-123 Low order position of Remarks text 

124 Format number of requested Output 

Program 

125 Classification code of requested 

report 

126 Number of additional copies requested 
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SECTION IV 
OUTPUT PHASE COMMUNICATION ZONE 
Name Loc Length Tag Meaning 



WARE A 2500 

ENTIND 2700 

ENDSDA 2704 

ENTMED 2705 

ENTSIZ 2709 

ENTHIS 2710 

ENTHIH 2713 

ENTAMT 2715 

ENTSTA 2720 

ENTINP 2725 

ENTRY 2729 

SOT 2730 

OVFLOW 2976 

COUNTR 2977 



200 High Area from which a condensed 
statement is executed, 

1 Low Indicator for entry from SOT to 

be used. A or C ^ active; D or E 
or )6 = inactive. 

4 Low SDA of condensed statements for 
this Output Program. 

1 Low Output device for this Output 
Program. C = card punch, T = 
tape, P = printer . 

4 Low Size of the output image for this 

Output Program. 

1 Low History tape indicator. Y = yes, 

)4 = no. 

3 Low Highest statement number for this 

condensed Output Program, 

2 Low Number of condensed statements 

that can fit in core for this 
Output Program. 

5 Low Core Origin of the condensed 

statements for this Output Program. 

5 Low Core origin of the input area 
for this Output Program. 

4 Low The low-order character of the 

SOT entry in use. 

245 High Selected Output Table for this 
report. 

2 Low The line after which overflow 
is to occur . 

51 X 17 High The 50 Counters available to an 
Output Program, plus the 
REMAINDER Counter (Counter 0) . 
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Name Loc 



ASFDAT 3860 



DATE 3877 



COMIPO 3914 

COMIAC 3915 

C0M2N0 3918 

C0M2P0 3923 

C0M2AC 3924 

COMREP 3927 

COMSOR 3932 



Length 
17 

17 



Tag 
Low 

Low 



CLASS 


3894 


17 


Low 


SWITCH 


3895 


10 


High 


LNCTER 


3906 


2 


Low 


COMING 


3909 


3 


Low 



Low 



Low 



Low 



Low 



Low 



Low 



Low 



COMSNO 


3934 


2 


Low 


COMIOR 


3939 


5 


Low 


COMIEN 


3944 


5 


Low 


COMOOR 


3949 


5 


Low 



Meaning 

Location where AS OF TIME from 
console is stored. 

Location where system date is 
stored (referred to by system 
attribute name TODAY). 

Report classification. 

The 9 Switches available to an 
Output Program. 

Line counter. 

The statement number of the 

first level statement in operation. 

The position in the first level 
statement in operation. 

First level active indicator; 
] = active; = inactive. 

The statement number of the 
second level statement in 
operation. 

The position in the second level 
phrase in operation. 

Second level active indicator; 
1 " active; = inactive. 

The statement number of the REPEAT 
statement in operation. 

The core origin of the condensed 
statements. 

The number of statements in core. 

The core origin of the input area. 

The end of the input area in core. 

The core origin of the output area. 
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Name Loc 

COMOEN 3954 

CCMTES 3955 

COMPUN 3956 

COMDON 3957 

COMSTK 3958 

COMQL 3959 

COMTYP 3960 

COMDR 3961 

COMOVF 3962 

HILO 3968 

COMNEW 3969 

COPIES 3970 

NEWPAG 3971 

SPACES 3973 

WRTSCT 3975 



Length Tag Meaning 

5 Low The end of the output area in 
core. 



Low The result of the last IF test; 
1 = true; = false. 

Low The punctuation from the last 
phrase passed. 

Low Finished indicator; 1 = no more 
input data. 

Low The stacker into which the next 

card to be punched will be placed. 

Low Query Language indicator, 

Non blank = Query Language. 

Low The statement type of the last 
statement operated . 

Low Type of first -level statement 

last executed; D = DO ; R = REPEAT. 

Low Overflow indicator. 

Low The high and low order addresses 
of remarks data on remarks card. 

Low Indicator that a new statement 
has become active. 

Low Number of additional copies of 
the report requested. 

Low Indicator that a SKIP TO NEW PAGE 
was executed. 

Low Number of blank lines printed by 
the last SKIP statement. 

Low Not used. 
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Figure 7. REPGEN Output Phase Core Map 



25 



SECTION V 
SYMBOLIC DISK ADDRESSES 



The REPGEN programs make frequent use of the system disk. All 
disk references are made through the use of DSKACC, using Symbolic Disk 
Addresses (SDA*s), Several programs in REPGEN use the system allocation 
routine DSKALL to dynamically obtain needed SDA's, However, there are 
a number of SDA's which must be obtained prior to installing the REPGEN 
capability. These SDA*s are assembled directly into some of the REPGEN 
programs. 

Table 1 which follows describes the characteristics of the disk 
areas for which SDA's must be obtained prior to installing REPGEN. 
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section vi 

repgen flowcharts and abstracts 



6.1 LID 
Purpose 

LID reads a deck of input descriptor cards and generates 
a set of tables which are required by subsequent REPGEN programs. 

Calling Sequence 

Enter LID on the console typewriter. Return will always 
be to IDLOOP. 

Description 

There are four acceptable input card types to LID. They 
are the Report Descriptor Card, the Record Descriptor Card, the Attri- 
bute Descriptor Card and the END Card. 

Report Descriptor Card -- When LID reads a Report Descriptor 
Card it does the following: 

a. Checks the Report Descriptor Table to make sure there 
is an open slot or that this is not a duplicate of another report number. 

b. If the input medium declared on this card is not disk, 
an SDA is allocated for a Record Descriptor Table. 

c. An SDA is allocated for an SOT. 

d. An SDA is allocated for an OEDT. 

Record Descriptor Card -- When LID encounters a Record 
Descriptor Card it: 

a. Allocates an SDA for an Attribute Descriptor Table. 

Attribute Descriptor Card -- An Attribute Descriptor 
Card causes LID to: 

a. Make an entry in the current Attribute Descriptor 
Table. 

b. Read the next Attribute Descriptor Card and repeat 
the process until all attributes for this record type have been treated, 

c. Make an entry in the Record Descriptor Table. 
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END Card (or next Report Descriptor Card)-- When an END 
Card is read, LID will: 

a. Construct an Output Entry Descriptor Table (OEDT) 
to describe the format of each record as it will latet appear on the 
Serial File Tape. 

b. Modify each Attribute Descriptor Table entry to 
include data identifying the attribute's assigned position in the Serial 
File Tape records. 

c. The modified Report Descriptor Table (and Record 
Descriptor Table if input is not disk) is written onto the system disk. 
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PRINT MESSAGE 
"RPT OR END CARD 
MUST FOLLOW 
RPT CARD WITH 
D IN COL. IB" 



PRINT MESSAGE 

REPORT CARD 

MISSING" 

E 
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SET REPORT 
INDICATOR 
SWITCH ON 




print message 
"illegal 

PROGRAM 
ACTION code' 






SET 

NOMIND 
ON 



SAVE REPORT 
NUMBER 





TURN ON 
FIRTSW 




1 I 
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OeSCRJPTOR 


>^ 


YRECCO 


JNO 




'■^^ 


SWITCH 
^ ON ^ 


^ 


FC3A 




TURN ON 
RECORD 
SWITCH 



NO 



PRTCD 



PRINT CARD 



PRINT MESSAGE 

"RECORD 

DESCRIPTOR 

CARD missing" 



TURN ON 
ERRSWT 



{ FCID \ 



SAVE 

RECORD 

TYPE 



YES 




PRTCD 



PRINT CARD 



PRINT MESSAGE 

ABOUT BAD 

REPORT 

NUMBER 




CLEAR 

CURRPT 
AREA 



TURN OFF 
FIRTSW 
ERRSWT 



RPTDL 



FC4A 



FCIC 



FCIA 




(END CARD 
RETURN) 

(REPORT DESCRIPTOR 
CARD RETURN) 

(NORMAL RETURN) 
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(ERROR RETURN) 



(ERROR RETURN) 



TURN OFF 
RECORD 
SWITCH 



TURN ON 

ATTRIBUTE 

SWITCH 



o 

CM 





PRINT MESSAGE 
"INVALID 
CARD" 



-»4 FCIA I 
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PRI^^■ N€SSAGE 
REMARKS REC- 
ORD MAY HAVE 
NO ATTRIBOTES" 



I 



TURN ON 
ERRSWT 
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TURN ON 
DELETE 
SWITCH 




SCAN FOR 
MATCHING RE- 
PORT NUMBER 




READ 

RECORD 

DESC. TABLE 



PRINT MESSAGE 

Report NUMBER 

NOT IN table' 



TURN ON 
FIRTSW 
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DSKALL 



'DEALLOCATE^ 
ECORD DESCv 
TABLE 



READ SOT 

INTO 

BUFFER 



STEP TO 

NEXT SOT 

ENTRY 




DEALLOCATE 
CONDENSED 
OUTPUT 
PROGRAM 



TURN ON 
ATTIND 



o 

CVJ 

to" 

I 
m 




SELECT AN 
ENTRY IN 
THE TABLE 



DSKALL 

DEALLOCATE^ 
ATTRIBUTE 

DESC. 

TABLE 
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TURN ON 
FIRTSW 



TURN OFF 
RECORD 
SWITCH 



^EXIT \yES . 


'^ELET^ 


TO W< 


SWITCH 


CALLER/ \ 


V ON? , 



NO 



DISK 

INPUT 

7 



NO 



BOEDF 



jr£S 



READ REPORT 

DESCRIPTOR 

TABLE 



ADD ENTRY 

TO REPORT 

DESCRIPTOR 

TABLE 
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WRITE REPORT 
DESC. TABLE 
BACK ONTO 
DISK 




WRITE RECORD 

DESCRIPTOR 

TABLE ONTO 

DISK 
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ISCANTO FIRST 

AVAILABLE 

SLOT IN 

ATTRIBUTE 

TABLE 



MAKE ENTRY 

IN ATTRIBUTE 

TABLE 




ADO ONE 
TO KCTL 



AOO ONE 
TO KSUB 




TURN ON 
ERROR 
SWITCH 



WRITE ATTRI- 
BUTE OESC. 
TABLE ONTO 
DISK 



H f RCOOL \ 
DO AN EffTRA ^ 
TO RECORD /* 
DESC. TABLy 



CLEAR 

ATTRIBUTE 

BUFFER 



PUT RECORD! 

MARK AT 

FRONT OF 

ATTRIBUTE 

BUFFER 



ERROR RETURN 



TURN OFF 
ERROR 
SWITCH 
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READ 

ATTRJBUTE 

DESC. TABLE 




WRITE 

ATTRIBUTE 

BUFFER 

ON DISK 




STEP TO 
NEXT 
ENTRY 



STEP TO 
NEXT ENTRY 




YES 



ENTER 

ATTRIBUTE 

IN OEDT 



MODIFY ATTRI- 
BUTE TABLE 
ENTRY TD SHOW«- 
POSITION IN 
OUTPUT ENTRY 




(MO 



TURN ON 
2ND PASS 
I NDICATOR 



7\ 

( KBLI j 
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MCVE AN SOA 

INTO DSKALL 

CALLING 

SEQUENCE 



DSKALL^ 

^DEALLOCATEN 

A DISK 

AREA 



STEP TO NEXT 

ENTRY IN 

SAVED SDA 

TABLE 




CHECK REPORT NO 
ON ATTRIBUTE CARD 
AGAINST CURRENT 
REPORT DESC. 
TABLE ENTRY 




COMPARE RECORD 

TYPE ON 

ATTRIBUTE CARD 

WITH CURRENT 

RECORD TYPE 



I 




PRINT MESSAGE 
"RECORD TYPE 
UNLIKE RECORD 
DESCRIPTOR 



PRINT MESS«3E 
"REPORT NO. 
UNLIKE ATTRI- 
BUTE DESCRH 
PTOR CARD" 
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SCAN TO END 
OF SAVED 
SDA TABLE 



ENTER SDA AT 
HLDSDA INTO 
SA/ED SDA 
TABLE 






TURN OFF 

RECORD 

SWITCH 



DSKALL 

EXPAND 
OEDT AREAy 



PRINT MESSAGE 

"ATTRIBUTE 

DESCRIPTOR 

CARDS MISSING" 



WRITE OEDT 
TO DISK 



DEALLO 

deallocate 
sda's 



CLEAR 

OEDT 

BUFFER 




J. 



TURN 

OFF 

NOMIND 



TURN 

OFF 

ATTIND 



I 

CD 
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TURN ON 
RMKSW 



'GET SDA OF 

^ATTRIBUTE 

^DEX.TABl 




I 



UDCATE END 
OF RECORD 
DESCRIPTOR 
TABLE 



i 



ADD REMARKS 
RECORD TO 
RECORD DESC. 
TABLE 




fO 
CVJ 

uT 

CVJ 

I 

m 
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LEGVAL 
Purpose 

To generate a disk table containing all allowable values 
for one or more attributes. This, table is to be used during the file 
generation process which creates a Serial File Tape from source input 
data. 

Calling Sequence 

Enter LEGVAL on the console typewriter. 

Description 

Each input card to LEGVAL contains the name of an attribute 
and one of the allowable values for that attribute. LEGVAL checks to 
see if that attribute name has been previously encountered. If not, 
the name is added to a list of attributes which are to be legality 
checked. After the name has been added to the name list, an SDA is 
allocated to be used for storing the list of legal values pertaining 
to the attribute. When all allowable values for a given attribute have 
been read, the value table is written on the system disk. When an END 
card is read, the name list is written on the system disk. 
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LEGVAL 





CLEAR 
TABLE 
AREAS 



SET NAME 
TABLE NOT IN 
CORE" SWITCH 



SET WORD 
MARKS IN 
ATTRIBUTE 
DESC. CARD 
AREA 



i 



SAVE 
PREVIOUS 
ATTRIBUTE 
NAME 



I 



READ A CARD 





YES 



CVI 

cvi 



MESSAGE: 
MORE CARDS 
OR END CARD 



RESET PRESENT 
ATTRIBUTE 
VALUE TABLE IN 
CORTSWITCH 



PUT OLD 
VALUE TABLE 
ONTO DISK 



:q 
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YES 



INDICATE BAD 

CARD CODE ON 

TYW 



( ''^^^ J 






I 

m 



GIVE KESSAGE 
"ATTRIBUTE 

NAME NOT IN 

TABLE " 




£ 



BLANK NAME 
IN ATTRIBUTE 
NAME TABLE 



DELETE ATTRI- 
BUTE VALUE 

DISK TABLE 



I 



BLANK ATTRIBUTE 
VALUE PARA- 
METERS IN 
ATTRIBUTE NAME 
TABLE 



BLANK 
ATTRIBUTE 
NAME 
POINTER 
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SET TABLE 
POINTERS 
TO ZERO 




YES 



t 



PUT BLANKS 

IN PLACE OF 

ATTRIBUTE 

VALUE 




Wlinsri J 



W IDLOOPJ 
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CVJ 

CM 

I 




ErrrER new 

ATTRIBUTE NANE 
PARAMETERS INTO 
TABLE 



I 



ALLOCATE AN 
ATTRIBUTE VALUE 
TABLE FOR THIS 
NAME 



J 



set new value 
table" switch 



I 



PUT VALUE SDA 
INTO NAME TABLE 




SET "END OF 
ATTRIBUTE NAME^' 
INDICATOR INTO 
"NAME TABLE" 



T 



Q: 



INITIALIZE 
VALUE TABLE 
CLEAR "NEW VALUE] 
TABLE" SWITCH 



reset end of 
attribute value 
table" switch 



CALL ATTRIBUTE 
VALUE TABLE 
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SET END OF 
ATTRIBUTE VALUE 
TABLE"SWITCH 



-•4 LMCWI j 



ERROR MESSAGE 
"VALUE TABLE 
FULL" 



«0 

M 
I 

CD 
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PUT 
ATTRIBUTE 

VALUE 
INTO TABLE 





WRITE OUT ON 
PRINTER AND 

CONSOLE "END 
OF update" 



I 



PUT 

ATTRIBUTE 

NAME TABLE 

BACK ON DISK 



YES 



CM 

to 

CM 
I 

m 



'THIS AN^ 

ELIMINATE 

VCTION^ 

NO 



PUT CURRENT 

ATTRIBUTE 
VALUE TABLE 
ONTO DISK 
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SAVER 
Purpose 

A query language statement containing the GETTAC process 
director and report number(s) is stored on disk for utilization by t lu- 
query portion of the report generation program. 

Calling Sequence 

From' 1/0 typewriter, or cards with sense switch B on, 
starting in column 1. 

SAVER)6GETTAC)4AAAA* ' *AA[BBB/BBB* ' ' ] 
XXX+XXX+* ' »H-XXX 

AA * * * = qualifying attributes 

BB ' ' ' = output selector 

XXX = report numbers (maximum of 10) 

Description 

The saved statement SDA table is read from disk. The 
first blank entry is located and noted. The statement to be saved is 
accessed from the buffer SDA '0003*. The statement is scanned for 
correctness, such as appearance of a left and right bracket and report 
numbers. The report numbers are stored in a small table area. The 
output selectors are stored in a table area 50 characters to each entry. 
The report descriptor file is now accessed. Report numbers are nov; 
matched from the report descriptor file with those of the saved state- 
ment. If a match is found the saved statement number is inserted in 
the appropriate slot of the report descriptor file. The output ^^ntry 
descriptor table SDA and number of records referenced by the report 
descriptor is saved in a table area. The new report descriptor is 
written back on system disk. The process is continued until all repcrt 
numbers from the saved statement are exhausted. 

The output selector table is now written on disk at th*.; 
SDA's indicated by the matching reports discovered. Disk space is 
allocated for the saved statement and the statement is saved at the 
SDA allocated. The actual SDA for the statement is inserted in the SDA 
statement buffer and rewritten on the system disk. The program will 
terminate with a printout of the statement number assigned to the 
'SAVER' statement. 
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START 




READ IN 
STATEMENT 
SDA TABLE 



SCAN FOR 
BLANK ENTRY 
IN TABLE 




SAVE ASSIGNED 

STATEMENT 

NUMBER 



READ IN 

"SAVER " 
STATEMENT 



SCAN FOR 
LEFT BRACKET 




SAVE LOCATION 
OF LEFT 
BRACKET 







SAVE REPORT 
NUMBER (s) 
IN TABLE 




LOOK FOR 
REPORT 
NUMBER Is) 
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SET UP OUTPUT 
SELECTORS IN 
SELECTOR 
TABLE 



READ IN 
REPORT DESC. 
TABLE 



COMPARE 
REPORT #'s 
AGAINST FIRST 
(NEXT)ENTRY 




INSERT SAVED 
STATEMENT 
IN REPORT 
DESC. TABLE 
ENTRY 



PICK-UP 
OEDT SDA 
AND SAVE IT 



WRITE REPORT 
DESC. TABLE 
BACK ON DISK 




TYPE MESSAGE 
"STATEMENT 
NNN HAS BEEN 
SAVED" 



o 
in 



WRITE OUTPUT 
SELECTORS IN 
OEDT 



ALLOCATE 
SPACE FOR 
SAVER STATE- 
MENT 



WRITE 


STATE- 1 


MENT TO DISK | 


AREA 


JUST 


ALLOCATED | 



ADD SDA TO 
SAVED STATE- 
MENT DIREC- 
TORY 
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LOD 

Purpose 

LOD processes an Output Program, checking the output 
format statements syntactically, and condensing them into a convenient 
form for interpretation and execution by the output phase of REPGEN, 

Calling Sequence 

Enter LOD on the console typewriter. Return will be to 
IDLOOP. 

Description 

The Output Descriptor Card is read and Report Descriptor 
Table is called from disk, A search is instituted for the report 
indicated on the Output Descriptor Card. 

When the report is found, the SOT Table for this report 
is called in from disk and updated with the current information from 
the Output Descriptor Card, An SDA is now allocated for the condensed 
output format statements. 

The SOT Table is now put back on disk with the present 
run recorded as in error status. The condensed output statement SDA 
is put into the appropriate DSKACC call. 

The LOD statement cards are read in next and are condensed 
by LOD. Each numbered statement is allotted a complete 245 character 
record within the assigned SDA , When an attribute name is encountered 
during processing of the statement cards, an Output Entry Descriptor 
Table (OEDT -- an expandable 2800 character record) for this report is 
brought into core from disk. The attribute name is replaced by a six 
digit value from the OEDT. This value specifies the attribute value 
length and its relative position in the intermediate tape created by 
the first phase of REPGEN. 

The OEDT usually will remain in core throughout the 
processing of the present statement cards except when an additional 
segment of the OEDT has to be called in from disk. On the next refer- 
ence to the OEDT the first segment of the table will be brought back 
into core. 

When the final statement has been processed, the report 
descriptor table will be written back onto disk, after being submitted 
to a minor update. This update involves putting an indicator for 
output media into the table. 
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A second wind-up operation puts the updated SOT Table 
onto disk, A successful set of statements get an "A" or "C" in 



position of the table. Otherwise 



an 



is left in the table. 



Phrase Types and Condensed Form 
Type 1 



DO XXX 
REPEAT XXX 
GO TO XXX 
CONTINUE XXX 



IDXXX 
IRXXX 
IGXXX 
ICXXX 



Type 2 



SET OVERFLOW AFTER NN 

SET SWITCH N 

SET COUNTER NN LENGTH=PP 

SET REMAINDER LENGTH=NN 

CLEAR SWITCH N 

CLEAR SWITCHES 

CLEAR COUNTER NN 

CLEAR COUNTERS 

CLEAR 



2S0NN 

2SSN 

2SCNNPP 

2SC00NN 

2CSN 

2CS 

2CCNN 

2CC 

2 



Type 3 



SKIP TO A NEW PAGE 
SKIP NN 
STACKER N 
WRITE TAPE MARK 



3E1 
3CNN 
3SN 
3T 



Type 4 



END LINE 

END CARD 

END HEADER XXX 

END TRAILER XXX 

END ENTRY 

NEXT ENTRY 

END 



40 

40 

4HXXX 

4TXXX 

40 

4 

1 



Type 5 

IF OVERFLOW 
IF FINISHED 
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Type 5 (continued) 
IF SWITCH X 



5SX 



N 



N 



IF b (....) (....)/ 
D ^ 



N 

5 b 

D 



N 



Type 6 



COL XXX 



N 
S 
D ( ) 

C 
b 



N 

6XXX „ D . . . . 
^ C 



COL XXX - g ( ) 



6XXXR 



N 



• • • • 



COL XXX = C ( ) 

b 



^°^^^R = S (b<- 



N N 
COL XXX = g (^(, 



X 



) -"^ ( 



.)) 



..)) 



6XXXL C 




b 




L^ 
6XXX „ S N ... 

^ b 


* 


* 


A 


N N 
6XXXR g ^ 


S N 
( b 



COUNTER XX = 



COUNTER XX 



N 

D (....) 

b 



N N 



N 



..) ^-, (, 



.)) 



N 

6CXX D 

b 



6CXX 



N N 
S b 



A 

S N 
'( b 
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SAVE RETURN 
TO IDLOOP 



READ 



lAD cowtroX 

VOR STATEMEhfTy 
CARDS 




I 

OD 



INDICATE 
ERROR IN 
SOT ENTRY 



I 



INACTIVATE 
DISK WRITE 
FOR CONDENSED 
PHRASES 





CLEAR INPUT 

AREA 

(22CDRD) 



T 



rPEADPUNCy 



X 



MOVE INPUT AREA 
CONTENTS TO 
INPUT PROCESS- 
ING AREA 
(READER) 





GIVE ERROR 
MSG."STATEMENT 
NUMBER NOT 
NUMERIC" 



NOGO 

''INACTIVATE 
DISK 
.UPDATES 
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PRINT OUT 
CARD JUST 
READ 



INITIALIZE FOR 
OUTPUT 
DESCRIPTOR 
CARD 



REPORT 

FIND PROPER 
REPORT 
^DESCRIPTOR 
TABLE 



L|LJ 



LOCATE 

FIND PROPER 
SOT TABLE 



UPDSOT 

UPDATE SOT 
TABLE 



READ 
READ A CARD 



CM 

I 




BLANK 

CONTINUATION 
COUNTER AND 
POINTER 



SAVE 

STATEMENT 

NUMBER 




CLEAR 
CONDENSED 
PHASE AREA 



57 




BLANK 

PHRASE 

AREA 



GIVE MESSAGE 
"FIRST STATE- 
MENT MUST BE 
000" 



X 



Anogo 
/inactivate 

)ISK 
JPDATES 



\ ^' 

MJPD/ 




I 



PACKER 
PACK 

continuation; 
statements 




CON DEN 



RGAIN 



PROCESS A 
PHRASE 



(rgpack W- 



BUMP CONTINU- 
ATION CARD 
COUNTER 



SENSES 



PRINT OUT 
CARD 



READ 



READ CARD 
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CD 

at 
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m 






ACTIVATE DISK 
WRITE FOR 
CONDENSED 
STATEMENTS 



PUTQUT 

/PUT UPDATED' 

REPORT 

DNTO DISK 





INCREMENT 
POINTER FOR 

NEXT 
CONTINUATION 



COMBINE 

CONTINUATION 

IWITH PREVIOUS 

CARDS 




RGPGOT 
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SAVE REPORT 

DESCRIPTOR 

TABLE 

POINTER 




NITIALIZE 

REPORT 

DESCRIPTOR 

TABLE DSKACC 

CALL 



INITIALIZE 
BRACKET 
EVALUATION 
ROUTINE 



BLANK REPORT 
TABLE 
POINTER 



INITIALIZE 
READ-IN 
BUFFER AND. 
REPORT BUFFER 




N 
I 

m 



BLANK REPORT 
TABLE 
AREA 



GET TABLE 

OFF OF 

DISK 




NO 



indicate 

"report not 

found" 



-W skipal] 




INCREMENT 

RELATIVE 

RECORD IN 

DSKACC 



INCREMENT 
REPORT 
POINTER 
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CLEAR 

SOT 
TABLE 



I 



PUT SOT SDA 

FROM RETORTI 

DESCRIPTOR 

TABLE INTO 

DSKACC 



I 



GET RELATIVE 
POSITION OF 
SOT FOR THIS 
OLTTPLrT FORMAT 



i 



GET SOT 

TABLE 

FROM DISK 



I 



SET END 
OF 

table" 
indicator 




ro 
M 

I 

CQ 
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BLANK OUT 

HISTORY AND 

OUTPUT MEDIA 

INDICATORS IN 

REPORT 
DESCRIPTOR 
TABLE 
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BLANK 

SOT 
POINTER 




INCREMENT 

SOT 
POINTER 




UPLOOK 





SET HISTORY 
INDICATOR 



INDICATE 

OUTPUT 

MEDIA 

AS TAPE 



SET DISPLAY 
INDICATOR 
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SET PRINTER 
INDICATOR 
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SET UP 

DSKALL 

WRITE CALL 




ADJUST 

CONDENSED 

OUTPUT 

POINTERS 



WRITE UPDATEq 

REPORT 

DESCRIPTOR 

TABLE TO DISK 



WRITE 

UPDATED 

SOT TABLE 

TO DISK 




MOVE 

CONDENSED 

OUTPUT 

POINTERS 




ERROR MESSAGE 

"statement 

TOO BIG. 
STOP run" 



NOGO 



INACTIVATE 
DISK 
UPDATES 



to 

to 

I 
m 




63 







\UNPPHR/ 



BLANK PHRASE 
DEIsrriFICATDN 
a UNCONDENSED 
STATEMENT 
COUNTER 



BLANK PACK 
AND UNPACK 
POINTER 
STORAGE AREAS 




give error 
"no period" 




NOGO 

NACTI VATE 
SK UPDATES/ 



SETUP PHRASE 
DENTIFI CATION 
ROUTINE 





IDENTIFY 

PHRASE 

TYPE 



PROCESS 
PHRASE 



PACK 



PACK 

CONDENSED 

PHRASE 

( unpphr] 




INCREMENT 

FOR NEXT 

LOOK 
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o 



1 

CD 




give message 
"phrase type 

NOT 

identified" 



NOGO \ 

inactivate) 

HSK UPDATESr 





UPONOP/ 




BLANK 

PHRASE 

WORK AREAS 



SET STATEMENT 

POINTER AT 

BEGINNING 

OF PHRASE 




SET UP 
ERROR 
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INCREMENT 
POINTER 





CALCULATE 
PHRASE 
LENGTH 



± 



ISOLATE 

PHRASE FROM 

STATEMENT 




error, right 

parentheses 

missing" 




I 

00 
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ERROR 
MESSAGE 

"action code 
incorrect 



( SKIPAL J 





PUT NEW ACTION 
CODE INTO 
SOT TABLE 



BLANK OL SOT 
UPDAJE SWITCH 




ERROR DELETE NOT 
FOLLOWED BY END 
OR OUTPUT 
DESCRIPTOR" 



ro 

I 

m 



INDICATE 

INCORRECT 

ACTION CODE 

( SKIRAL ] 



( SKI PAL J 
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ELIMINATE 

RECORD 

MARK 





PUT PRESENT 

lACTION CODE INTO 

SOT TABLE 



CALCULATE OUTPUT 

MEDIA STORAGE 

BIN SIZE. PUT 

INTO SOT TABLE 




message "invalid 
output media 
character" 




CM 

CM 

I 

m 
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XTTPUT MEDIA 

CODE TO 

SOT TABLE 




PUT HISTORY 

TAPE CODE 

INTO SOT 



MESSAGE 

^'invalid 
history tape 

CODE" 



-^ SKI PAL J 



SET LOWER 

LIMIT OF 

I/O BUFFERS 



DETERMINE 
OUTPUT MEDIA, 

AND ALLOT 
BUFFER SPACE 
FOR EACH TYPE! 



00 



I 
m 



ADD OUTPUT 
MEDIA BUFFERl 

SPACE TO 
LOWER LIMIT 
BASE. DETER- 
MINES OUfpJT 
STATEMENT 
CORE ORIGIN 



SET TOP OF 

AVAILABLE 

CORE 
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SET AN INPUT 

B.N OF 1000 

FOR QUERY 

LANGUAGE. (HIGH 

CORE MINUS 

1000) 



CALCULATE 
INPUT SPACE 
REQUIRED FOR 

ENTRY FROM 

INTERMEDIATE 

TAPE 



SUBTRACT 

REQUIRED ENTRY 

SPACE FROM 

HIGH CORE 

VALUE 



PUT CALCULATED 
VALUE INTO SOT 
TABLE. DENOTES 
CORE ORIGIN OF 
INPUT AREA 



SPACE BETWEEN 

INPUT AND OUTPUT 

BUFFER ALLOTED 

FOR CONDENSED 

STATEMENTS 



I 



CALCULATE 
NUMBER OF 
CONDENSED 
STATEMENTS 
FITTING IN CORE 



PUT NUMBER OF 

OUTPUT 

STATEMENTS 

INTO SOT 



put output 
statements' SDA 
into write 
disk call 
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SAVE SOT 
POINTER 




SET UP DISK 
WRITE CALL FOR 
CONDENSED 
STATEMENT BIN. 



THIS ^li 

, iD FORMAT 
:t:ONTAIN THE SAME^ 
^STATEMENTS AS 
OTHE OLD 
^FORMAt 



/CLEAN- 
BINS 



BLANK OUT A 
RECORD OF 
CONDENSED STATE- 
MENT BIN ON 
DISK 



ALLOCATE CONDENS- 
ED STATEMENT SDA 
NUMBER OF RECORDS 
EQUAL HIGHEST 
STATEMENT 
NUMBER _. 



PUT CONDENSED 
STATEMENT SDA 
INTO SOT TABLE 



PUT CONDENSED 
STATEMENT SDA 
INTO DISK WRITE 
CALL 



BUMP RECORD 
COUNTER 




SAVE SOT ACTION 
CODE. PUT ERROR 
ACTION CODE IN 

SOT WRITE SOT 

TO DISK 



I 



RESTORE SOT 
ACTION CODE 
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SET ERROR 
MESSAGE FOR 
MISSING OR OUT 
OF PLACE "="S1GN 



ERROR MESSAGE 

"PHRASE TYPE 
NOT IDENTIFIED" 




PUT A '6C' INTO 
CONDENSED AREA 



PUT JUSTIFICATION 
CHARACTER INTO 
CONDENSED 
PHRASE 



MODIFY 
POINTERS 



(CONNEX W 



INSERT A RIGHT- 
JUSTICATION 
CHARACTER INTO 
CONDENSED 
PHRASE 



ISOLATE COUNTER 
VALUE PUT INTO 
CONDENSED AREA 



SET UP 
INCORRECT 
NDICATOR 
MESSAGE 



COUNT 

/^CHECK FOR 
LEGAL 
.COUNTER 



I 

m 
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ADVANCE POINTER 

TO START OF 
PAREN CONTENTS 



BRACT 



iSIXI 



EVALUATE 

PARENTHESES 

CONTENTS 




I 



REPV 



CHECK PHRASE 
SYNTAX 



o 

a> 

I 

CD 




YES 
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,SIXBR 



IS NEXT 
CHARACTER A' 

? 

YES 



HO 



SET UP 

NCORRECT FORMAf 

MESSAGE 





y^\ S NEXT\ 

>^HARACTER a\ 


YES 


/IS NE)CT\ 
_^>^CHARACTER^ 
■^X^PLUS 1 A > 


.YES 


\^ "rj " OR y 




/ 


^^? y^ 




^\?/^^ 




J^NO 






NO 




< CHARACTER A > 


^ 


SIXEXT U-J 








\ 


^ 




Vyes 








PUT FIRST NUMERIC 
CHARACTER INTO 
C0A)DENSING AREA 


^ 












I 

03 



BUMP PHRASE 
POINTERS 





SET UP INCORRECT 

FORMATTING 

MESSAGE 
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BUMP 

UNCOMDENSED 
PHRASE 
COUNTER 





PUT SUBTRACT 
CHARACTER INTO 
CONDENSED 
AREA 



^SIXFRA J 




PUT DIVIDE 

CHARACTER "(" 
INTO CONDENSED 
AREA. 



W SIXFRA J 




PUT MULTIPLY 

CHARACTER 

INTO CONDENSED 
AREA 



W StXFRAJ 



SET INCORRECT 
OPERATION SIGN 
MESSAGE. 
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\0 
CM 
I 
03 




PUT ADD 
CHARACTER INTO 
CONDENSED AREA 



BUMP 

STATEMENT 

POINTERS 






MOVE TYPE 
IDENTIFIER TO 
PHRASE AREA 



SET 

CONDENSED 
POINTER 






^ mi 



BUMP 

CONDENSED 

POINTER 



r 




SET UP RIGHT 
PARENTHESIS 
MISSING MESSAGE 
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SET UP IMPROPER 
JUSTIFICATION 
CHARACTER 
MESSAGE 





PUT L 
JUSTIFICATION 
CHARACTER INTO 
CONDENSED AREA 



BUMP 

CONDENSED 

COUNTER 



ADJUST 

CONDENSED 

POINTER 



g 




PUT "R" 
JUSTIFICATION 
CHARACTER INTO 
CONDENSED AREA 



I 
m 



BUMP 

CONDENSED 

COUNTER 
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PUT JUSTIFICATION 
CHARACTER INTO 
CONDENSED AREA 



BUMP 

STATEMENT 

COUNTERS 



in 
cvi 

ID 

cvi 

t 




78 




SET UP ERROR 

ENTRY INTO TYPE 

SIX SUBROUTINE 



^3 



i 



BRACT 



EVALUATE 

PARENTHESES 

CONTENTS 



CM 
I 
03 



BUMP 

UNCONOENSEO 
POINTER 




INDICATE BAD 
OPERATION 
SIGN 
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SET AN S INTO 

CONDENSING BIN 

FOR EQUAL 




SET A T INTO 
CONDENSING BIN 
FOR GREATER THAN 



BUMP 

CONDENSED 

POINTER 



g 



BUMP 

CONDENSING 

POINTER 



(5 




SET A "U" INTO 
CONDENSING BIN 
FOR LESS THAN 




SET A "/" INTO 
CONDENSING BIN 
FOR NOT EQUAL 



BUMP 

CONDENSING 

POINTER 



g 




BUMP 

CONDENSING 

POINTER 



00 
CSJ 

CVJ 

iO 
CSJ 

I 

CD 
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BRACT 



EVALUATE 
^RENTHESESy 
VCONTENTS. 




PUT 50' IN 
CONDENSING 
BIN AND 
[BUMP POINTERS! 






CM 



BUMP 

UNCONDENSED 

POINTER 



SETUP SLASH 
iMiSSING AFTER 
IF PHRASE^ 
MESSAGE 





PUT BF IN 
CONDENSING 
BIN AND BUMP 
POINTERS 



PUT 7^" INTO 

CONDENSED 

BIN 






PUT 5S IN 
CONDENSING 
BIN AND BUMP 
POINTERS 



SEND SWITCH 
NUMBER TO 
CONDENSING 
AREA- 
BUMP 
COUNTER 
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BLANK OUT 
RELATIVE POINTER 

FOR Q. L. OEDT 
ENTRY 



BLANK RELATIVE 

RECORD IN 

DSKACC CALL 

FOR OEDT 



PUT TYPE OF 

DATA INDICATOR 

INTO CONDENSED 

AREA 




SET UP 

DSKACC CALL 

FOR OEDT 



BUMP 
COUNTERS 




SET UP BIN FOR 

STORING AN 

ATTRIBUTE 

NAME 
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PUT ATTRIBUTE 

NAME INTO 
COMPARING BIN 



BUMP 
POINTERS 




SET UP 

MESSAGE 

RIGHT 

PAREN 

MISSING 




SET IN CORE 
SWITCH 



in 
to 

CM 

I 



CALL IN 
OEDT 
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BUMP 0. L. 
RELATIVE 
POINTER 




SET UP MESSAGE 

ATTRIBUTE NAME 

NOT IN table" 



BUMP TO NEXT 

ATTRIBUTE 

IN OEDT 




BUMP 

RELATIVE 

RECORD 



I 



NULL OUT 
OEDT IN 
CORE SWITCH 

f BRAOOOJ 



CVJ 

I 

03 
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1 





PUT RELATIVE 
POSITION OF 
ATTRIBUTE IN 
OUTPUT CONDENS- 
ING BIN 



MOVE LENGTH AND 
RELATIVE ENTRY 
OF ATTRIBUTE TO 
CONDENSING BIN 



BUMP 

CONDENSING 

BIN 




BUMP 

UNCONDENSED 

POINTER 



^EXIT 
FROM 
iBRACT 




SET UP MESSAGE 
"RIGHT 
PARENTHESIS 
MISSING" 



NOGO 



o 

iO 

I 



|BRANEX j 
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PUT CX)UNTER 
IDENTIFIER (COO) 
INTO CONDENSING 
BIN. 



BUMP 
POINTERS 



FILL IN COUNTER 
IDENTIFIER WITH 
PROPER COUNTER 
NUMBER 



BUMP 

CONDENSED 

POINTER 



COUNT 



CJ 
1 



/make sure 
\ counter is, 

\ LEGAL 



BUMP 

UNCONDENSED 

POINTER 




RAOFF> 




SET UP INCORRECT 

FORMAT 

MESSAGE. 




NOGO 



fN ACTIVATE 

DISK 

UPDATES 



y^UNPPHR j 
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SET C5I INTO 
CONDENSING 
BIN BUMP 
COUNTERS 





SET C53 INTO 
CONDENSING 
BIN BUMP 
COUNTERS 





SET C52 INTO 
CONDENSING 
BIN BUMP 
COUNTERS 



g 




MOVE CONSTANT 

TO CONDENSING 

BIN. FOLLOW 

WITH # ^ 



BUMP 
POINTERS 




{ BRACEX j 



o 

CO 

I© 

CM 

I 

03 



SET COO INTO 
CONDENSING 
BIN BUMP 
COUNTERS 
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PUT A BLANK 

INTO 
CONDENSING 

BIN 



CO 

i 

00 



BUMP 
POINTERS 




BUMP 
POINTERS 
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REPGEN 
Purpose 

REPGEN is operated to produce a Serial File Tape from a 
source data file contained on cards, magnetic tape or on the system 
disk. The Serial File Tape is then used as input to the output phase 
of the Report Generation capability. 

Calling Sequence 

Enter on the console typewriter 

REPGENrrrfcn 

where rrr = 3-digit report number (no blanks) 

f = Format number of the Output Program to be executed. 
Must be 1-7 or blank. 

c = Classification code: U, C, S or T for Unclassified, 
Confidential, Secret or Top Secret. 

n = Number of copies of printed output. Must be 1-9 or blank. 

Final return will be made to IDLOOP. 

Description 

The Report Descriptor Table is read from disk and the 
data from the typewriter call is stored away. If no report number was 
given with the call, the PRTTND routine is operated, printing an index 
of REPGEN reports followed by a return to IDLOOP. 

If the report number was not blank, the requested report 
is located in the Report Descriptor Table, mount messages are issued 
and the input medium is checked. 

If the input medium is disk the saved Query Language 
statement number is taken from the Report Descriptor Table entry and 
used to construct a dummy call to REPEET. REPEET is called via COPS; 
it fetches the Query Language statement, types it on the console and 
passes control to GETTAC. GETTAC executes the Query Language statement, 
placing the retrieved data on a Serial File Tape. The option is now 
given to the operator to enter the output phase or to terminate. 

If the input medium is not disk, the Record Descriptor 
Table is brought in from disk and a source data record (either card 
or tape) is read. Entries in the Record Descriptor Table are examined 
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against the input record until the record type is identified, at which 
time the Attribute Descriptor Table for this record type is read into 
core . 

All control attributes are collected into a control 
field for this input record. Sub-control attributes are collected 
into a sub-control field. 

The control field is compared with the previous control 
field. If they differ, a control break is noted. If the sub-control 
field differs from the previous sub-control field, a sub-control break 
is noted. If the current record caused no control or sub-control break, 
the record is given at once to the audit routine. 

The audit routine processes each attribute of the input 
record separately, performing left or right justification and legality 
checks as required or specified. Each attribute, after it is audited, 
results in an entry in the DAWORK Table. The entry in DAWORK specifies 
the location of the attribute in the input area, its destination in 
the output area , and its length. If the input record contained sub- 
control attributes, a similar entry is made in the DAW0R2 table. After 
all input attributes for the current record have been audited, the 
DAWORK table is used to move the audited fields from the input area 
to the output buffer. The next input record is then read. 

At the point where control and sub-control fields were 
checked with previous fields, if a control break or sub-control break 
was noted the current contents of the output buffer will be written 
on the Serial File Tape. If a control break occurred, the entire 
output image is then cleared. If a sub-control break occurred, the 
DAW0R2 table is used to determine those fields to selectively clear 
in the output image. After the output image is cleared, the current 
input record is given to the audit routine, and processing continues 
as described before. 

When the input data file has been fully processed and 
the Serial File Tape is complete, a disk record called the I/O Communi- 
cation Record is written, containing the current Report Descriptor 
Table entry and various typewriter inputs (e.g., Report Classification 
Code, Format Number, AS OF TIME) to be passed along to the output phase. 
The operator is given a typewriter option to cancel or to continue into 
the output phase. If the output phase is requested, a dummy call is 
set up to RGPBYP. Control will eventually be returned from the output 
phase to REPGEN which will exit to IDLOOP. 
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START 



STEP TO 
NEXT ENTRY 




PRINT 
MESSAGE 




REPORT # 
NOT IN FILE" 



SCAN FOR A 
MATCHING 
REPORTS 




MOVE REPORTi 
DESC. TABLE 
ENTRY TO 
CURREP 



ASK FOR 
OF TIME" 
FROM 
CONSOLE 



AS 



READ AS OF 
TIME" INTO 
MONTH 



TURN ON 
PSUBFS 




10 



GIVE TAPE 
MOUNTING 
MESSAGE 
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92 




SET UP I/O 

iGOMMUNICATiaSEl 

RECORD 



WRITE IT 
ON DISK 



TYPE OUT 

"END OF 

INPUT phase" 



GIVE OPTION 
TO CONTINUE 
OR CANCEL 




SET UP TYPE- 
WRITER AREA 
ON DISK WITH 
DUMMY CALL 
TO RGPBYP 



CO 
ID 

ID 
CM 
\ 




CALL 

RGPBYP 

VIA COPS 



RGPBYP 

ENTER 

OUTPUT 

PHASE 
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TRY TO MATCH 
RECORD TYPE 
WITH AN 

EMTRY IN 

RECORD 

DESC. TABLE 




PRINT MESSAGE 

"RECORD TYPE 

NOT IN 

table" 



TURN org 

MASERR 





READ IN ATTR 

DESCRIPTOR 

TABLE 



^URREN 
^ENTRY A 

SUB-CON 
■ TROL 
ATTR 



STEP TO 
NEXT 
ENTRY 




ADD CONTRa ATTR- 

TO END 

OF CONTROL 

FIELD BUFFER 

CTLHD2 



m 





ADD SUB-CONTROL 

ATTRIBUTE TO END 

OF SUB -CONTROL 

FIELD BUFFER 

CTLHD4 




94 





INSURE THAT ANY 
MANDATORY INPUT 
RECORDS HAVE 
BEEN READ 




ERROR MESSAGE 
"MANDATORY 
I NPUT RECORD 
MISSING*' 



RWTAPE 

WRITE A 

RECORD ON 

OUTPUT 

TA PE 




CVJ 
iO 

I 

CD 
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USING DAWORK 
TABLE, TRANSFER 
DATA FROM INPUT 
AREA TO OUTPUT 
IMAGE 








CLEAR 
INPUT 
AREA 










TURN OFF 
PCLRSB. WHICH 
CTLFIN^PFIRST 



TURN ON 
MASSUB a 
MERSWF 



EXIT 
TO 
PDBLK 
.CALLEF 



MAKE ENTRY 
IN DAWORK 
TABLE, GIVING 
ATTRIBUTE 
POSITION IN 
INPUT AREA, 
ATTR.POS. IN 
OUTPUT IMAGE 
a ATTRIBUTE 
LENGTH 



TURN ON 
MA SOT L 
AND 
MERSWF 



TURN OFF 
MASERR 




MAKE EQUIVA- 
LENT ENTRY 

IN DAW0R2 

TABLE 






i 
m 
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CLEAR ENTIRE 

OUTPUT 

AREA 



I 



SAVE LAST 
CONTROL FIELD; 

CLEAR SUB- 
CONTROL FIELD 



I 



TURN OFF 
MASCTL, 
MASSUB 



I 




USING FIELDS 
DEFINED IN 

DAW0R2, SELEC- 
TIVELY CLEAR 

OUTPUT IMAGE 



I 



CLEAR 

DAW0R2 

TABLE 



CLEAR 

DAW0R2 

TABLE 



I 



I 



TURN OFF 
PSUBFS 



TURN ON 
PSUBFS 



I 



I 



SAVE LAST 

SUB- CONTROL 

FIELD 



TURN OFF 
PFIRST 




I PATT3 J 
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ISOLATE 

THE 

FIELD 



I 




ALLCK 

PERFORM 

L AT/ LONG 

CHECK 



ALINI 

LEFT 

JUSTIFY 

ONLY 



TURN ON 
SWI 




AL!NI 

Left justh 

AND check 
for ALP 




TURN 

OFF 

SWI 



1- 



ANINI 

!ight justif 
and check, 
numeric 



J 



ALVAL \ 
PERFORM \ 

legitimate) 

VALUE / 
CHECK / 



TURN OFF 
SWI, 
SW5 




PRINT 

ATTRIBUTE 

OESC. ENTRY 
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^CHECK FIELC 
FOR ALPHA 
DATA 





READ IN 

LEGITIMATE 

VALUE ATTRIBLTTE 

NAME TABLE 



SCAN FOR 

ATTRIBUTE 

NAME 




READ IN 
LEGITIMATE 
VALUE TABLE 




RGTJUS 



BRIGHT JUSTI- 

vFY NUMERIC. 

DATA 



ANUCK 

^CHECK FIELDN 

\fOR NUMERIC, 

DATA 



TRY TO MATCH 

CURRENT 

ATTRIBUTE 

WITH A 

TABLE ENTRY 







I 
m 



INSERT 
LEADING 
ZEROES 
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PRINT MESSAGE 

"MORE THAN 

FIVE REMARKS 

CARDS IN 

THIS GROUP" 



WRITE RECORD 

MARK TO END 

REMARKS 

ON DISK 




MOUNT 

INTERMEDIATE 

' OUTPUT TAPE 

[ON DRIVE 3J 




TYPE 



TYPE CONSOLE 
MESSAGE 




Hmount^ 

INPUT I 

TAPE on' 

I DRIVE 2. 



I 
m 
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FETCH MESSAGE 

AND PUTGMWM 

AT END 



CALL REPEET 
VIA COPS 



i 



I 



XONSOLE> 

f"YPE MESSAGE^ 
,0N CONSC 



/ REPEEA 
/fetch AN[X 

( EXECUTE ) 

\ SAVED Q-LV 

^SWEMENy 





PRINT Q.L. 
:RR0R MESSAGE! 



CJ 

<0 
CM 

I 

S 
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RGPBYP 
Purpose 

This routine issues mount messages for the output phase, 
completes the I/O Communication Record and calls in the output phase. 

Calling Sequence 

If called internally from REPGEN, the dummy typewriter 
call which is constructed is 

RGPBYP^^** 

If called externally, enter on the console typewriter 

RGPBYPrrrfcn 

where rrr = 3-digit report number (no blanks) 

f = Format number of the Output Program to be executed. 
Must be 1-7 or blank. 

c ^ Classification code: U, C, S or T for Unclassified, 
Confidential, Secret or Top Secret, 

n = Number of copies of printed output. Must be 1-9 or blank. 

Final return is to calling program. 

Doscrlption 

If RGPBYP was called from REPGEN, the I/O Communication 
Record is read back from disk. If RGPBYP was externally called, the 
AS OF TIME is requested, and an l/O Communication Record is constructed. 

The SOT Table for the requested report is accessed and 
used to determine the output devices required and the mount messages 
to be issued. Requests for multiple copies are ignored if the output 
device is not the printer. 

After the mount messages are issued, the I/O Communi- 
cation Record is completed and written on the system disk. The output 
program RGPOUT is then called via COPS. After return is made from 
RGPOUT, RGPBYP will exit to its calling program. 
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START 




READ BACK 


THE I/O 


COMMUNICATIONS 


RECORD 



SAVE NUMBER 

OF COPIES 

REQUESTED 

IN COPIES 




SET UP I/O 
COMMUNICATIONS 
RECORD BUFFER 



READ REPORT 

DESCRIPTOR 

TABLE 



SCAN FOR ENTRY 
THAT MATCHES 
REPORT NUMBER 
FROM CONSOLE 




MOVE REPORT 

DESCRIPTOR 
ENTRY TO I/O 
COMM BUFFER 





GETSDA 



NO 



YES 



_^ ^SPECIAL 
"•< INPUT? 



CARD "V YES 
NPUT? 



YES 





PRINT ERROR 
MESSAGE 
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READ RECORD 

DESCRIPTOR 

TABLE 




PUT HIGH AND 

LOW ORDER 

POSITION OF 

REMARKS INTO 

I/O COMM 

BUFFER 



READ SOT 




SELECT ENTRY 
FOR PARTICU- 
LAR FORMAT 
REQUESTED 



SELECT FIRST 

(NEXT) SOT 

ENTRY 



,YES 



SOTEND 



YES 



YES 
ACTIVE " 
ENTRY? 



END OF 
TABLE? 



/^ \. YES 
CARD Xl^ 


TURN OH 
SWCARD 




OUTPUT^X^"** 




^HO 






OUTPUT^ 


TURN OH 
SWTAPE 




MD Xi 


1 





^WERE 

Call format 
request]: 
7 ^ 



SOTEND 



HO 



HISTORY^ 
TAPE ? 



YES 



TURN ON 
SWHIST 



I 

00 



105 



rn 




XONSOLEN 



^TYPE PLACE^ 
INPUT TAPEv 
I DRIVE 3*1 



^^^ /CONSOLEN^ 

:SWTAPE 0NJ> <nSr§^; 

^ ^ \0N DRIVE 

\ 4" 

NO l~ 




YES 



^CONSOLE 

^YPE "PLACE 
CTRA COPIES 
TAPE ON 
DRIVE 4". 



DISALLOW ANY 
EXTRA 
COPIES 




CONSOLE^ 

TYPE "place 

HISTORY TAF 

DRIVE 6"> 



WRITE I/O 
COMMUNICATIONS! 
RECORD 
ONTO DISK 



m 






CALL RGPOUT 
VIA COPS 
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RGPOUT 
Purpose 

RGPOUT acts as the output phase supervisor, control 1 ing 
the loading and execution of the various output phase programs. 

Calling Sequence 

RGPOUT is called internally from RGPBYP as follows; 

B COPS 
DCW 'RGPOUT' 

Description 

The Read/Write Tape routine RWTAPE, the CONSOLE routine 
and the initial Communication Zone are all assembled with RGPOUT, and 
are loaded into core when RGPOUT is loaded. They remain in core through- 
out the output phase. 

RGPOUT calls the output phase initialization routine 
ININT into core and executes it. Next the SOT Table entry for the 
output program to be executed is examined . If input was via Query 
Language, the SOT entry is checked to see if UPSTAT has been executed 
for this output program. 

If input was via Query Language and UPSTAT has not been 
executed, UPSTAT is loaded and executed to complete the condensing of 
the output program. 

The appropriate output routine, PRINTO, CARDO or TAPEO, 
is loaded depending upon whether the output device is the printer, the 
card punch or magnetic tape. The main output program REALO is loaded 
and executed to produce the desired output. 

After REALO executes the output program, RGPOUT checks 
to see if any more formats were requested for this report. If so, 
the appropriate output program is loaded, REALO is loaded, and the 
next output program is executed 

When all requested output programs have been executed, 
RGPOUT checks to see if extra copies of printed reports were requested. 
If so, the extra copies tape is rewound and an internal call to PRTTAP 
is set up and executed to yield the necessary printed copies. 
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ININT 
Purpose 

Performs initialization for the output phase of REPGEN. 
Calling Sequence 

ININT is called from RGPOUT by 
B ININT 
(Normal Return) 

Description 

ININT reads the I/O Communication Record from disk. 
The classification code is checked for U, C, S or T and causes the 
system attribute CLASS to be set to Unclassified, Confidential, Secret 
or Top. Secrete Other data is taken from the I/O Communication Record 
and entered into the Communication Zone. The SOT Table is read into 
the Communica' Ion Zone, If only one specific format was requested, 
all other entries in the SOT Table are set to blanks. The Communica- 
tion Zone is written on the disk from where it may be read back to 
re-initialize it between execution of output programs. 

Return is made to RGPOUT. 
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ENTER INTO 

COMM ZONE: 

AS OF TIME: 

O.L. INDICATOR: 

HILO FOR REMARKS 

# OF EXTRA 

COPIES 



READ SYSTEM 
DATE AND PUT 
INTO COMM ZONE 
(DATE) 
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WRITE 
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ON DISK 




CM 

I 
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UPSTAT 

Purpose 

UPSTAT is called by RGPOUT to complete the condensing 
of output statements which LOD could not completely condense. This 
only occurs in the case where the Serial File Tape Is the product of 
a Query Language retrieval from a parallel file stored on system 
disk. 

Calling Sequence 

- . UPSTAT is called from RGPOUT by 

B UPSTAT 
(Normal Return) 

Description 

When LOD condenses the statements of an output pro- 
gram which uses a Query Language generated Serial File Tape as input, 
the statements cannot be completely condensed. In particular, LOD 
does not know the length or position in the Serial File Tape records 
of each attribute. LOD does know the order in which the attributes 
will appear on the Serial File Tape. In the case in point, LOD 
assigns each attribute a number corresponding to its relative posi- 
tion in the Serial File Tape records, and substitutes this number 
for each occurrence of an attribute name in an output statement. 

When UPSTAT is executed, it reads the first record of 
the Serial File Tape and uses it to construct a table. The table so 
constructed contains the length and relative position on the Serial 
File Tape of each attribute. The condensed output program is read 
from disk, and the attribute numbers are now replaced with length 
and' position data from the table. The fully condensed statements 
are written back onto disk, the "UPSTAT executed" indicator is set 
in the appropriate SOT entry, and return is made to RGPOUT. 
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USE HIGHEST 
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PROCESS 
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DISK 
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SELECT 
FIRST (NEXT) 
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PRINTO 

Purpose 

Print a line on the printer or read a record from 
the Serial File Tape. 

Calling Sequence 

PRINTO is entered from the REALD program. If a 
record is to be read from the Serial File Tape, the call is 

B INPUT 
(Normal return) 

If the output image is to be printed, the call is 

B OUTPUT 
(Normal return) 

Description 

If entry is made at INPUT, one record is read from 
the Serial File Tape. If an end-of-file is encountered, the indi- 
cator COMDON is turned on in the Communications Zone. 

If entry is made at OUTPUT, the first 132 characters 
of the output image are printed. The line counter is incremented, 
and if it exceeds the value in OVFLOW, the overflow indicator is 
turned on . 

If additional copies of the printed report were 
requested, the print image is also written onto the extra copies 
tape. Three characters are added to the record on tape to indicate 
any blank lines or page ejects which should be accomplished before 
this line is printed. (This spacing information will be interpreted 
by the PRTTAP program which generates additional copies of the printed 
report from the extra copies tape.) 
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PRINTD 
VOJTPUT. 
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MOVE FIRST 
132 CHARACTERSI 
FROM OUTPUT 
IMAGE TO 
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READ A 
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TAPE 3 



INCREMENT 
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INDICATOR 




CO 
«>' 

CVJ 
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CARDO 
Purpose 

Punch a card from the output image or read a record from 
the Serial File Tape. 

Calling Sequence 

CARDO is entered from the REALO program. If a record is 
to be read from the Serial File Tape, the call is 

B INPUT 

(normal return) 
If a card is to be punched, the call is 

B OUTPUT 

(normal return) 
Description 

If entry is made at INPUT, one record is read from the 
Serial File Tape. If an end-of-file is encountered, the indicator 
COMDON is turned on in the Communications Zone, 

If entry is made at OUTPUT, a check is made to see if a 
history tape was requested. If a history tape was requested, the 
first entry at OUTPUT causes the history tape to be spaced until an 
end-of-file is detected, and then positioned so that records may be 
added to the file. The output image is then written on the history 
tape . 

If Sense Switch C is on, the output image is printed. 

Next the stacker select character is acquired from the 
Communication Zone, and the first 80 characters of the output image 
are punched in a card. 
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TIME 
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DISK 
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RECORDS, READ I 
RECORD, 
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OF HISTORY 
TAPE 









REWIND 
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CAR DO 




READ A 
RECORD FROM 
TAPE 3 




TURN ON 
COMDON 

INDICATOR 
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TAPEO 

Purpose 

Write an output image onto magnetic tape, write a 
Header record on magnetic tape, write a Trailer record on magnetic 
tape or read a record from the Serial File Tape. 

Calling Sequence 

TAPEO Is entered from the REALO program. If a record 
is to be read from the Serial File Tape, the call is 

B INPUT 
(normal return) 

If the output image is to be written on tape, the call is 

B OUTPUT 
(normal return) 

If a Header is to be written on tape, the call is 

B HEADER 
DCW 'NNN' 

where NNN is the number of characters of the output image to be 
used as a Header record. If a Trailer record is to be written on 
tape, the call is 

B TRAILER 
DCW 'NNN' 

where NNN is the number of characters of the output image to be 
used as a Trailer record- 

V. 

Descri ption 

If entry is made at INPUT, one record is read from the 
Serial File Tape. If an end-of-file is encountered, the indicator 
COMDON is turned on in the Communication Zone. 

If entry is made at OUTPUT, a check is made to see if 
a history tape was requested. If a history tape was requested, the 
first entry at OUTPUT causes l;he history tape to be Spaced until an 
end-of'file is detected, and then positioned so that records may be 
added to the file. The output image (up to 1000 characters) is 
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then written on the history tape. If Sense Switch C is on, the first 

132 characters of the output image are printed. The output image is 
then written on the output tape. 

If entry is made at HEADER, the Header indicator is 
turned on, the first NNN characters of the output image are written 

on the output tape, and are also saved on the system disk (if a 

subsequent entry at OUTPUT results in an end-of-reel condition 

on the output tape, the saved Header will be written as the first 
record of the next reel). 

If entry is made at TRAILER, the first NNN characters 
of the output image are written on the output tape. 
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RECORD ON 
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SAVE HEADER 
ON DISK 
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REALO 

Purpose 

Interpretivcly execute an output program to produce 
the desired reporf. 

Calling Sequence 

REALO is called internally from RGPOUT by 

B CTL 
(normal return) 

Description 

An initialize routine i? first executed to read into 
core as much of the condensed output program as will fit. Statements 
are kept in core just as they appeared on disk» in 245 character 
records. Each statement, as it is required, is moved to a buffer 
at WAEIEA from where it is actually executed. The current statement 
is examined one phrase at a time. Each phrase begins with a number 
from 1 to 6 indicating the phrase type- Recognition of the type 
causes a transfer to the appropriate TYPE routine, where thp phrase 
is completely identified and executed. Section 6.4.4 under LOD shows 
the phrases grouped by type, and the format of the condensed phrases. 
Execution of an END phrase causes control to be passed from REALO 
back to RGPOUT. 
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SET WORD MAW 
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SET T6RES TO 
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POSITION IN 
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MULTIPLY 
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REMARK 
Purpose 

Print or punch remarks which were stored on disk during 
the input phase of a REPGEN run. 

Calling Sequence 

REMARK is loaded and called from RGPOUT by 

B REMARK 
(normal return) 

Description 

During the input or file generation phase of REPGEN, 
any input records defined as remarks are put into a remarks area on 
the system disk. Remarks normally would be punched into cards, and 
a given remark may not exceed five cards in length. 

If the output medium is punched cards, the REMARK 
processor simply reads back the remarks stored on disk and punches 
them into cards. 

If the output medium is the printer, REMARK prints a 
heading and reads a remark from the disk. The remark is packed into 
a print line and printed. If it overflows to more than one line, 
subsequent lines are indented ten spaces until the entire remark is 
printed. The printer is spaced once, the next remark is read and 
the process is repeated until all remarks have been printed. 

The REMARK routine is called and executed after REALO 
has finished executing an output program. 
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REPEET 
Purpose 

A stored query GETTAC statement is retrieved, expanded 
and executed. 

Calling Sequence 

REPEET is called internally by REPGEN. The call is 
placed in SDA 0003 as 

repeetUnnn 

where NNN is the saved statement number assigned by SAVER. REPGEN 
then issues a 

B COPS 
DCW 'REPEET* 

REPEET may be called externally by typing 

repeetUnnn 

on the console typewriter. 

Description 

The statement number is validity checked. The saved 
statement SDA table is read in from disk and the SDA corresponding 
to the given statement number is extracted. The saved statement 
is read into core from disk. The statement is scanned for record 
marks. Each record mark is labeled by a record mark number. The 
statement is then typed out and data insertions are made via typewriter 
for each record mark in the statement. The edited statement is 
written to the system communication area and the GETTAC processor 
is called via COPS. 
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REKALL 

Purpose 

Print out all statments previously stored on disk by 
the program SAVER* 

Calling Sequence 

Enter REKALL on the console typewriter. Return will 
be to IDLOOP. 

Description 

REKALL reads the saved statement SDA table into core. 
Each non-blank entry points to a saved statement. Each saved state- 
ment is read in turn from the disk and is printed along with its 
assigned statement number. A total of 500 statements may be saved. 
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DELEET 
Purpose 

Delete from the system disk a Query Language statement 
previously stored there by the SAVER program. 

Calling Sequence 

Enter on the console typewriter 

DELEETjiNNN 
where NNN is the saved statement number assigned by SAVER. 

Description 

The DELEETUNNN message is retrieved from SDA 0003. 
The 3 character number referencing the statement to be deleted is 
stored. The table of 4 character SDA's which references where each 
saved statement is stored is read into core. The first entry in the 
table references statement number 001, the second entry references 
statement number 002, and so on. Blank entries indicate that 
statement number has not been saved and is available. The statement 
SDA to be deleted is then located. If it is blank, a message will 
be printed on the console indicating that this statement cannot be 
deleted because it has not been saved. If an SDA is found in the 
table entry corresponding to the statement number to be deleted, 
the saved statement is typed out on the l/O typewriter for the 
operator's approval. If okay, the SDA is deleted from the statement 
table and also deallocated so that the statement itself is effectively 
deleted. The new SDA statement table is now rewritten on the disk 
and the program returns to IDLOOP. 
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PRTCRD 

Purpose 

PRTCRD is used to print a report from cards which were 
generated by RPTCRD. 

Calling Sequence 

Enter PRTCRD on the console typewriter. Return will 
be to IDLOOP. 

Description 

The print area is cleared, the printer is spaced to a 
new page, and a card is read. 

Each input card contains half of a print image in 
columns 1-66. Columns 77-80 contain information identifying which 
half of the print image the card represents and any page or line 
spacing to be done before printing. Columns 77-80 are interpreted 
as follows: 

Column 77 « L or )6 ; This is left half of print image. 
R ; This is right half of print image. 

"Columns -78-79 = nn ; Number of times to space before 

printing. 
Blank specifies single spacing. 

Column 80 = )6 ; Print after putting this card 

in buffer and performing required 
spacing. 
1 ; Same as )6, except skip to new 

page first. 
* ; Put this card in buffer but do 
not print or space. 

As each card is read, columns 1-66 are placed into 
the left or right half of a print image. If column 80 is a blank 
or 1, required spacing is performed and a line is printed. If 
column 80 is *, no printing or spacing is done, and the next card 
is immediately read. 
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PRTTAP 
Purpose 

PRTTAP is used to print additional copies of a report 
from a REPGEN extra-copies tape. 

Calling Sequence 

PRTTAP is called internally from RGPOUT. RGPOUT puts 

PR'J'TAPn 

where n is the number of co|>ies desired, into SDA 0003 and then 
calls 

B COPS 

DCW 'PRTTAP* 

The program can also be called externally by entering 

PRTTAPn 
on the console typewriter. Return will be to IDLOOP. 

Description 

The input to PRTTAP is tape 4, with one file of 135 
character records written in even parity. The first 132 characters 
of each record represent a print image. The last three characters 
of each record contain information regarding page and line spacing 
to be accomplished before printing the image. 

The format of each record is as follows: 

Character 1-132 = Print image. 

133-134 « Number of times to space before 
printing. 

Blank specifies single spacing 
135 = Page control. 

1 means skip to new page before 
printing; blank means do not skip. 

PRTTAP reads a record and first examines the page 
control character. If it is a 1, a skip to channel 1 is executed. 
Next, if any spacing is indicated it is accomplished by printing the 
appropriate number of blank lines. The line is then printed. When 
an end-of-file is encountered, the tape is rewound, and the number 
of copies is decremented by one. If it is not blank, another run 
is made through the tape. 
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RPTCRD 
Purpose 

RPTCRD is used to punch cards from a REPGEN extra- 
copies tape in a format which will allow the cards to be processed 
by PRTCRD. 

Calling Sequence 

Enter RPTCRD on the console typewriter. Return will 
be to IDLOOP. 

Description 

Input to RPTCRD is tape A, with one file of 135 
character records written in even parity. 

Each input record from tape 4 is treated as a print 
line, where the first 132 characters constitute a print image, and 
the last three characters are for carriage control. (See write-up 
of PRTTAP for discussion of the carriage control characters.) 

RPTCRD will divide each print image into a left and 
right half, and punch each half into the first 66 columns of a card 
using columns 77-80 of the cards for carriage control information. 
These cards are in proper format to be processed by PRTCRD, which will 
use these cards to generate a report on the printer. If Sense 
Switch C is on, each card will be printed as well as punched. 

The format of the output cards and the meaning of the 
data entered in columns 77-80 is the same as that which was presented 
in section 6.18.3 to describe the input cards to PRTCRD. 

When an end-of-file is encountered on tape A, two blank 
cards are punched and control returns to IDLOOP. 
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